home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 70 / MF_UK_70_1.iso / Demos / Agamik BarCoding Demo ƒ / Agamik Barcoder Demo 3.10 / Agamik Barcoder Demo 3.10.rsrc / STR#_4526.txt < prev    next >
Encoding:
Text File  |  1998-08-24  |  2.1 KB  |  75 lines
  1. /_ftName 66 string def
  2.  
  3. /NewCodes 256 array def
  4.  
  5. NewCodes 0
  6.  
  7. StandardEncoding
  8.  
  9. 0 128 getinterval
  10.  
  11. putinterval
  12.  
  13. NewCodes 16#27 /quotesingle put
  14.  
  15. NewCodes 16#60 /grave put
  16.  
  17. /Adieresis /Aring /Ccedilla /Eacute /Ntilde /Odieresis /Udieresis /aacute
  18.  
  19. /agrave /acircumflex /adieresis /atilde /aring /ccedilla /eacute /egrave
  20.  
  21. /ecircumflex /edieresis /iacute /igrave /icircumflex /idieresis /ntilde /oacute
  22.  
  23. /ograve /ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex /udieresis
  24.  
  25. /dagger /degree /cent /sterling /section /bullet /paragraph /germandbls
  26.  
  27. /registersans /copyrightsans /trademarksans /acute /dieresis /notequal /AE /Oslash
  28.  
  29. /infinity /plusminus /lessequal /greaterequal /yen /mu /partialdiff /summation
  30.  
  31. /product /pi /integral /ordfeminine /ordmasculine /Omega /ae /oslash
  32.  
  33. /questiondown /exclamdown /logicalnot /radical /florin /approxequal /Delta /guillemotleft
  34.  
  35. /guillemotright /ellipsis /space /Agrave /Atilde /Otilde /OE /oe
  36.  
  37. /endash /emdash /quotedblleft /quotedblright /quoteleft /quoteright /divide /lozenge
  38.  
  39. /ydieresis /Ydieresis /fraction /currency /guilsinglleft /guilsinglright /fi /fl
  40.  
  41. /daggerdbl /periodcentered /quotesinglbase /quotedblbase /perthousand
  42.  
  43. /Acircumflex /Ecircumflex /Aacute
  44.  
  45. /Edieresis /Egrave /Iacute /Icircumflex /Idieresis /Igrave /Oacute /Ocircumflex
  46.  
  47. /apple /Ograve /Uacute /Ucircumflex /Ugrave /dotlessi /circumflex /tilde
  48.  
  49. /macron /breve /dotaccent /ring /cedilla /hungarumlaut /ogonek /caron
  50.  
  51. NewCodes 128 128 getinterval astore pop
  52.  
  53. /CopyDictionary { dup maxlength dict /NF exch def
  54.  
  55. { 1 index /FID ne { NF 3 1 roll put } { pop pop } ifelse } forall NF } def
  56.  
  57. /Recode { dup cvn /NewName exch def (|_) anchorsearch
  58.  
  59. { pop findfont CopyDictionary dup /Encoding NewCodes put
  60.  
  61. NewName exch definefont } if pop } def
  62.  
  63. /RecodeFont { dup FontDirectory exch known { pop } { Recode } ifelse } def
  64.  
  65. /NoRecode { dup cvn /NewName exch def (|_) anchorsearch
  66.  
  67. { pop findfont CopyDictionary NewName exch definefont } if pop } def
  68.  
  69. /rf { dup FontDirectory exch known { pop } { Recode } ifelse } def
  70.  
  71. /nrf { dup FontDirectory exch known { pop } { NoRecode } ifelse } def
  72.  
  73. •
  74.  
  75.